10 IFA=0THENA=1:LOAD"ZEICHENSATZ",8,1
11 :
20 POKE53281,0:POKE53280,0:PRINT"[147]";CHR$(8)
21 :
22 REM              HINTERGRUND SCHWARZ
23 REM                SHIFT/CBM SPERREN
24 :
25 POKE56576,0
26 :
27 REM                       VIC-BANK 3
29 :
30 POKE53272,(PEEK(53272)AND15)OR32:POKE648,200
31 :
32 REM              BILDSCHIRM AB 51200
33 :
40 POKE53272,(PEEK(53272)AND240)OR0
41 :
42 REM             ZEICHENSATZ AB 49152
43 :
50 BL$="[129][165][146][157]":REM          CURSORFORM
60 V$="":REM          VARIABLE FUER GET
70 VV=0:REM      HILFSVARIABLE FUER GET
80 EG$="":REM             EINGABESTRING
90 L=0:REM         LAENGE EINGABESTRING
100 PS=0:REM HILFSVARIABLE FUER EINGABE
110 P$="":REM               DRUCKSTRING
120 ZP=0:REM  HILFSVARIABLE ZUM DRUCKEN
121 :
123 :
130 GOTO1000
131 :
132 :
133 REM                     SUBROUTINEN
134 :
135 :
136 REM                          GET V$
137 :
140 GETV$:IFV$=""THEN140
150 RETURN
151 :
152 :
153 REM                         DRUCKEN
154 :
160 FORZP=1TOLEN(P$)
170 PRINT#4,CHR$(PEEK(52200+ASC(MID$(P$,ZP,1))));
180 NEXTZP
190 RETURN
191 :
193 REM                  EINGABE STRING
194 :
200 EG$="":PS=0
210 IFPS=LTHEN230
220 PRINTBL$;
230 GOSUB140
240 IFV$="_"THENEG$="":RETURN
250 VV=ASC(V$)
260 IFVV=32ANDPS<LTHENPRINTV$;:EG$=EG$+V$:PS=PS+1
270 IFVV>37ANDVV<95ANDPS<LTHENPRINTV$;:EG$=EG$+V$:PS=PS+1
280 IFVV>185ANDVV<219ANDPS<LTHENPRINTV$;:EG$=EG$+V$:PS=PS+1
290 IFVV=20ANDPS<>0ANDPS<>LTHENPRINT" [157][157]";:EG$=LEFT$(EG$,LEN(EG$)-1):PS=PS-1
295 IFVV=20ANDPS=LTHENPRINT"-[157][157]";:EG$=LEFT$(EG$,LEN(EG$)-1):PS=PS-1
300 IFVV<>13THEN210
310 IFPS=0THEN210
320 IFLEN(EG$)=LTHENRETURN
330 PRINT" ":RETURN
331 :
332 :
333 REM              DRUCKER EINSTELLEN
334 :
340 PRINT#4,CHR$(27);"@";:
341 :
342 REM          DRUCKER INITIALISIEREN
343 :
350 PRINT#4,CHR$(27);"R";CHR$(2);:
351 :
352 REM      DRUCKERZEICHENSATZ DEUTSCH
353 :
360 RETURN
996 :
997 :
998 REM                   HAUPTPROGRAMM
999 :
1000 PRINT"[147]"
1010 PRINT"[194]ITTE [196]RUCKER EINSCHALTEN
1020 [153]"UND (null)ASTE DR@CKEN
1030 POKE198,0:WAIT198,1
1040 OPEN4,4:GOSUB340
1042 REM       GOSUB DRUCKER EINSTELLEN
1043 :
1050 PRINT"[147]";:PRINTSPC(6)"[194]ITTE EINE [197]INGABE
1060 [153][166]6)"-                    -"
1070 [151]211,7:[151]214,12:[158]58732
1075 [151]198,0
1080 L[178]20:[141]200
1082 [143]                  GOSUB EINGABE
1083 :
1090 [139]V$[178]"_"[167]EG$[178]"":[160]4:[128]
1100 P$[178]EG$
1110 [141]160
1112 [143]                  GOSUB DRUCKEN
1113 :
1120 [137]1050